home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / arexx / cg / copyattrib.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-17  |  2KB  |  53 lines
  1. /* CopyAttrib -- Save current char settings to rexx macro */
  2. /* By Bob Caron ©1994 NewTek, Inc.                        */
  3.  
  4. call addlib(CG_AREXX,0)
  5.  
  6. outfile="Toaster:Arexx/CG/PasteAttrib.Rexx"
  7.  
  8. call req_bar("Copying Attributes...")
  9.  
  10. stype=0
  11. if (~open(outfd,outfile,W)) then
  12.      call REQ_TELL("Can't open output:",outfile)
  13.  
  14.    bordbotr=translate(GET_BORD(BOTR),","," ")
  15.    charrgba=translate(GET_CHAR(RGBA),","," ")
  16.    charbotr=translate(GET_CHAR(BOTR),","," ")
  17.    shadrgba=translate(GET_SHAD(TOPR),","," ")
  18.    bordrgba=translate(GET_BORD(TOPR),","," ")
  19.    bordprio=GET_BORD(PRIO)
  20.    if get_shad(PRIO)=0 then prio="B"
  21.       else prio="T"
  22.    if get_shad(type)="None" then stype=0
  23.    if get_shad(type)="Cast" then stype=2
  24.    if get_shad(type)="Drop" then stype=1
  25.  
  26.    writeln(outfd,"/* PasteAttrib -- An Attribute Setter   */")
  27.    writeln(outfd,"/* By A. Random User ©1994 NewTek, Inc. */")
  28.    writeln(outfd,"/* (Based on a program by Bob Caron.)   */")
  29.    writeln(outfd,"")
  30.    writeln(outfd,"call addlib(CG_AREXX,0)")
  31.    writeln(outfd,"")
  32.    writeln(outfd,"CALL SET_CHAR(FILL,'"||get_char(fill)||"')")
  33.    writeln(outfd,"CALL SET_CHAR(BOTR,"||charbotr||")")
  34.    writeln(outfd,"CALL SET_CHAR(RGBA,"||charrgba||")")
  35.    writeln(outfd,"CALL SET_BORD(FILL,'"||get_bord(fill)||"')")
  36.    writeln(outfd,"CALL SET_BORD(BOTR,"||bordbotr||")")
  37.    writeln(outfd,"CALL SET_BORD(SIZE,"||left(get_bord(SIZE),1)||")")
  38.    writeln(outfd,"CALL SET_BORD(PRIO,"||bordprio||")")
  39.    writeln(outfd,"CALL SET_BORD(TOPR,"||bordrgba||")")
  40.    writeln(outfd,"CALL SET_SHAD(TYPE,"||stype||")")
  41.    writeln(outfd,"CALL SET_SHAD(SPOT,"||get_shad(SPOT)||")")
  42.    writeln(outfd,"CALL SET_SHAD(PRIO,"||prio||")")
  43.    writeln(outfd,"CALL SET_SHAD(SIZE,"||get_shad(SIZE)||")")
  44.    writeln(outfd,"CALL SET_SHAD(TOPR,"||shadrgba||")")
  45.    writeln(outfd,"CALL REMLIB('CG_AREXX')")
  46.  
  47.    call close(outfd)
  48.    call REQ_TELL("Attributes Copied...")
  49.    call req_bar("ToasterCG")
  50.    call REMLIB(CG_AREXX)
  51. exit
  52.  
  53.